Attribute VB_Name = "Constant"
Option Explicit
Public Const SqlPrezzo As String = "viewprezzo"
Public Const SqlCondizione As String = "viewcondizione"
Public Const SqlStato As String = "viewstato"
Public Const SqlDifetto As String = "viewdifetto"
Public Const SqlNazione As String = "viewnazione"
Public Const SqlProvincia As String = "SPSelectProvincia"
Public Const SqlCategoria As String = "viewcategoria"
Public Const SqlTipo As String = "SPSelectTipo"
Public Const SqlGenerale As String = "SPGenerale"
Public Const SqlDifetti As String = "SPListaDifetti"
Public Const SqlTematiche As String = "SPListaTematiche"
Public Const GeneraleDataMag As String = "SPGeneraleDataMag"
Public Const GeneraleDataMin As String = "SPGeneraleDataMin"
Public Const GeneralePrezzoMag As String = "SPGeneralePrezzoMag"
Public Const GeneralePrezzoMin As String = "SPGeneralePrezzoMin"
Public Const GeneraleNazione As String = "SPGeneraleNazione"
Public Const GeneraleProvincia As String = "SPGeneraleProvincia"
Public Const GeneraleCategoria As String = "SPGeneraleCategoria"
Public Const GeneraleTipo As String = "SPGeneraleTipo"
Public Const GeneraleStato As String = "SPGeneraleStato"
Public Const InsertCart As String = "SPInsertCart"
Public Const MaxIDCart As String = "SPMaxIDCart"
Public Const InsertDifetto As String = "SPInsertDifetto"
Public Const InsertTematica As String = "SPInsertTematica"
Public Const SelectPub As String = "SPSelectPub"
Public Const SelectRem As String = "SPSelectRem"
Public Const InsertPub As String = "SPInsertPub"
Public Const ViewMaxPub As String = "SPViewMaxPub"
'Public Const ViewSelezionate As String = "SPViewSelezionate"
Public Const InsertCartPub As String = "SPInsertCartPub"
Public Const UpdateToPubblicate As String = "SPUpdateToPubblicate"
Public Const SelectStato As String = "SPSelectStato"
Public Const SPCreateEx As String = "SPCreateEx"
Public Const SPAlterEx As String = "SPAlterEx"
Public Const ViewDifettoPresente As String = "ViewDifettoPresente"
Public Const SPsceglidifetto As String = "SPsceglidifetto"
Public Const SPInsertDifettoEx As String = "SPInsertDifettoEx"
Public Const ViewTipoPresente As String = "viewtipopresente"
Public Const SPScegliTipo As String = "SPScegliTipo"
Public Const SPInsertCategorieEx As String = "SPInsertCategorieEx"
Public Const ViewProvinciaPresente As String = "ViewProvinciaPresente"
Public Const SPScegliProvincia As String = "SPScegliProvincia"
Public Const SPInsertGeogEx As String = "SPInsertGeogEx"
Public Const ViewSelezionate As String = "viewSelezionate"
Public Const SPInsertCartolinaEx As String = "SPInsertCartolinaEx"
Public Const ViewDifettoSelezionate As String = "ViewDifettoSelezionate"
Public Const SPInsertCartolinaDifettoEx As String = "SPInsertCartolinaDifettoEx"
Public Const ViewTematicheSelezionate As String = "ViewTematicheSelezionate"
Public Const SPInsertTematicheEx As String = "SPInsertTematicheEx"
Public Const SPCartolinaEx As String = "SPinsertcartolinaEx"
Public Enum TipoAzione
    Aggiungi = 0
    modifica = 1
    elimina = 2
    Salva = 3
    Esci = 4
    clikkalista = 5
    refreshlista = 6
End Enum

Public Type OggettiForm1
    stsBar As StatusBar
    LstLista As Object
    txt1Aggiungi As TextBox
    txt1Modifica As TextBox
    txt2Aggiungi As TextBox
    txt2Modifica As TextBox
    sqlA As String
    sqlE As String
    sqlM As String
    sqlC As String
    sqlR As String
    sqlK As String
End Type

Public Enum valore
    intero = 0
    stringa = 1
End Enum

Public cnString As String
